-- card: 3051 from stack: in
-- bmap block id: 3217
-- flags: 4000
-- background id: 2669
-- name: Main
----- HyperTalk script -----

on openCard
  --show message box
  --show background button "menuToggle"
end openCard


on idle
  global fieldLines
  if SPortHasChar(1)
  then
  put recvUpTo(1,return,2,false,false) into theString
  if first character of theString is lineFeed
  then put empty into first character of theString

  --put theString after field "Debug"
  --repeat while the number of lines in field "Debug" > 10
  --delete first line of field "Debug"
  --end repeat

  if char 1 to 4 of theString = "RING"
  then
  put "Phone rang on" && the date && "at" && the long time && return after card field "inField"
  play "harpsichord" tempo 220 "ct e g c e g c e g c e g c e g c e g c e g"
end if

repeat while the number of lines in card field "inField" > fieldLines
  delete first line of card field "inField"
end repeat

end if

end idle

on returnKey
  sendSPort 1,false,message box & return
  put empty into message box
  hide message box
end returnKey

on clearKey
  sendSPort 1,false,linefeed
end clearKey



-- part 2 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=158 top=162 right=183 bottom=179
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  dial "1"
end mouseUp



-- part 12 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=182 top=162 right=183 bottom=203
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  dial "2"
end mouseUp



-- part 13 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=206 top=162 right=183 bottom=227
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  dial "3"
end mouseUp



-- part 14 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=158 top=186 right=207 bottom=179
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  dial "4"
end mouseUp



-- part 15 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=182 top=186 right=207 bottom=203
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  dial "5"
end mouseUp



-- part 16 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=206 top=186 right=207 bottom=227
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  dial "6"
end mouseUp



-- part 17 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=158 top=210 right=231 bottom=179
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  dial "7"
end mouseUp



-- part 18 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=182 top=210 right=231 bottom=203
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  dial "8"
end mouseUp



-- part 19 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=206 top=210 right=231 bottom=227
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  dial "9"
end mouseUp



-- part 20 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=158 top=234 right=255 bottom=179
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  dial "*"
end mouseUp



-- part 21 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=182 top=234 right=255 bottom=203
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  dial "0"
end mouseUp



-- part 22 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=206 top=234 right=255 bottom=227
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  dial "#"
end mouseUp



-- part 23 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=145 top=17 right=32 bottom=225
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: p1


-- part 27 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=225 top=17 right=32 bottom=240
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  get card field "p1"
  if it is empty then ask "Dial what number?"
  if it is not empty then
    push this card
    visual effect zoom open
    go to stack "Phone"
    dial it
    pop card
  end if
end mouseUp



-- part 28 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=225 top=31 right=46 bottom=240
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  get card field "p2"
  if it is empty then ask "Dial what number?"
  if it is not empty then
    push this card
    visual effect zoom open
    go to stack "Phone"
    dial it
    pop card
  end if

end mouseUp



-- part 29 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=225 top=45 right=60 bottom=240
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  get card field "p3"
  if it is empty then ask "Dial what number?"
  if it is not empty then
    push this card
    visual effect zoom open
    go to stack "Phone"
    dial it
    pop card
  end if

end mouseUp



-- part 30 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=225 top=59 right=74 bottom=240
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  get card field "p4"
  if it is empty then ask "Dial what number?"
  if it is not empty then
    push this card
    visual effect zoom open
    go to stack "Phone"
    dial it
    pop card
  end if

end mouseUp



-- part 31 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=225 top=73 right=88 bottom=240
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  get card field "p5"
  if it is empty then ask "Dial what number?"
  if it is not empty then
    push this card
    visual effect zoom open
    go to stack "Phone"
    dial it
    pop card
  end if

end mouseUp



-- part 32 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=225 top=87 right=102 bottom=240
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  get card field "p6"
  if it is empty then ask "Dial what number?"
  if it is not empty then
    push this card
    visual effect zoom open
    go to stack "Phone"
    dial it
    pop card
  end if

end mouseUp



-- part 33 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=225 top=101 right=116 bottom=240
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  get card field "p7"
  if it is empty then ask "Dial what number?"
  if it is not empty then
    push this card
    visual effect zoom open
    go to stack "Phone"
    dial it
    pop card
  end if

end mouseUp



-- part 34 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=225 top=115 right=130 bottom=240
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  get card field "p8"
  if it is empty then ask "Dial what number?"
  if it is not empty then
    push this card
    visual effect zoom open
    go to stack "Phone"
    dial it
    pop card
  end if

end mouseUp



-- part 35 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=225 top=129 right=144 bottom=240
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  get card field "p9"
  if it is empty then ask "Dial what number?"
  if it is not empty then
    push this card
    visual effect zoom open
    go to stack "Phone"
    dial it
    pop card
  end if

end mouseUp



-- part 36 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=225 top=143 right=158 bottom=240
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  get card field "p10"
  if it is empty then ask "Dial what number?"
  if it is not empty then
    push this card
    visual effect zoom open
    go to stack "Phone"
    dial it
    pop card
  end if

end mouseUp



-- part 39 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=145 top=31 right=46 bottom=225
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: p2


-- part 40 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=145 top=45 right=60 bottom=225
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: p3


-- part 41 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=145 top=59 right=74 bottom=225
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: p4


-- part 42 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=145 top=73 right=88 bottom=225
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: p5


-- part 43 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=145 top=87 right=102 bottom=225
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: p6


-- part 44 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=145 top=101 right=116 bottom=225
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: p7


-- part 45 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=145 top=115 right=130 bottom=225
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: p8


-- part 46 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=145 top=129 right=144 bottom=225
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: p9


-- part 47 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=145 top=143 right=158 bottom=225
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: p10


-- part 48 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=457 top=291 right=317 bottom=488
-- title width / last selected line: 0
-- icon id / first selected line: 20098 / 20098
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: go Home
----- HyperTalk script -----
on mouseUp
  put "Compacting stack to save you disk space..."
  doMenu "Compact Stack"
  hide message
  visual effect dissolve
  go "Home"
end mouseUp



-- part 52 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=158 top=256 right=277 bottom=227
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Baud Rate
----- HyperTalk script -----
on mousedown
  global baudRate

  put baudRate into NewbaudRate

  if baudRate = 300 then
    put 1 into position
  else if baudRate = 1200 then
    put 2 into position
  else if baudRate = 2400 then
    put 3 into position
  end if

  put the mouseloc into myPlace
  put item 1 of myPlace - 20 into h
  put item 2 of myPlace - 20 into v
  get PopUpMenu("300;1200;2400", position, v, h)
  put it into choice

  if choice = 1 then
    put 300 into NewbaudRate
  else if choice = 2 then
    put 1200 into NewbaudRate
  else if choice = 3 then
    put 2400 into NewbaudRate
  end if

  if baudRate <> NewbaudRate
  then
  put NewbaudRate into baudRate
  setBaud baudRate
end if

end mousedown



-- part 49 (field)
-- low flags: 00
-- high flags: 2002
-- rect: left=255 top=33 right=261 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 11
-- part name: inField


-- part 53 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=419 top=291 right=317 bottom=450
-- title width / last selected line: 0
-- icon id / first selected line: 2478 / 2478
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: About
----- HyperTalk script -----
on mouseUp
  visual effect iris open
  go to card "About"
end mouseUp



-- part contents for card part 23
----- text -----
267-0201

-- part contents for card part 49
----- text -----
Phone rang on 11/29/87 at 7:58:16 PM 
Phone rang on 11/29/87 at 7:58:29 PM 
Phone rang on 11/29/87 at 8:13:32 PM 
Phone rang on 11/29/87 at 8:13:39 PM 
Phone rang on 11/29/87 at 8:13:43 PM 


-- part contents for background part 2
----- text -----
2400